TITLE: 

TYPE: 

NUMBER OF WORDS: 

TEMPORARY STORAGE: 

TIME: 



DESCRIPTION: 



UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER LABORATORY 
ILLIAC PROGRAM LIBRARY 



Auxiliary- 
Library Routine P 20 - 265 



Data Plotter Output Converter (SADOI Only) 

Complete Program 

180 in memory locations 100 - 279 

0, 1 

T m = .56 + .3^ (n - 1) 

n = number of Y's on each line (i.e., between successive 

CR - LF's). The maximum time, T , for each line is .56 

m 

seconds for each line if there is only one Y, with an 
addition of ,3k seconds for each additional Y on each 
line. This includes output time. 

This program is intended to convert a data tape from the 
ILLIAC into a tape prepared for input to the data plotter. 
The program reads each value of X and all values of Y 
associated with that X from the tape and converts these 
into instructions for the data plotter. The program 
will read and punch any number of Y's for each value of 
X. However, if there are more than 6 Y's for any X, the 
parameter in location 6 should be set to so that the 
symbol select will not be punched, since there are only 
six symbols on the wheel of the plotter. The integer 1 
in location 6 indicates that the symbol select should be 
punched. The X's and Y's must be arranged in columns 
with the X-column first, followed by columns of Y's; 
thus each line must have X first followed by all the 
corresponding Y's. A CR - LF on the tape is interpreted 
as signifying the next value will be a new X. Each 
number read may have a maximum of 11 decimal digits with 
the sign and decimal point optional. If there are more 
than 11 decimal digits, the program will stop on an 
LF — order at location I96F (0N4). 

The integers p, q, r, and s are stored as preset parameters 
in locations 3, k, 5, and 6, respectively; p is used to 
scale X, and q is used to scale Y. Each X is read from 



- 2 - 



the tape, stored as an integer, and divided by lO 5 to 
convert it to a fraction. The Y*s are divided by 10 q . 
The integer r in location 5 should be 1 or 0; when 
r = 1, all numbers read that have more than p or q places 
will not be plotted. This feature can be used to get more 
accuracy for the remaining numbers plotted. When r - 
any X read that has more than p places will cause a division 
hang up at location 153F, and any Y read that has more 
than q places will cause a division hang up at location 
l£&F. The integer s in location 6 should be 1 or 0; when 
s = 0, no symbols will be punched; when s = 1, the symbol 
select will be punched and advanced for each Y. 
PARAMETER TAPE: The following are required: 

003K 
3) 00 F 

00 pF p = maximum number of places for X 
k) 00 F 

00 qF q = maximum number of places for all Y f s 

5) 00 F (r = causes a division hang up when X or Y 

J have more than p or q places 

00 rF (r = 1 program by-passes numbers with more than 
p or q places 

6) 00 F (s = symbol select is omitted 
00 sF ■ {& - 1 symbol select is punched 
2^ 100N to start program 

METHOD: (l) Read in P 20 - 265 with a clear start. 

(2) Read in parameter tape by moving the black switch to 
START. 

(3) Read in the data tape by moving the black switch to 

START. 
Fifteen consecutive fifth holes on the data tape stop the 
program. It can be started again by moving the black switch 
to START. If the parameters are not changed, another data 
tape may be read jn with a black switch start. A new 
p^rorjKM^r tap-.-.- mciy be r\:m\ in after a data tape by moving 
'.:i *vi;JU switeh through EXECUTE to KETCH and then back 
to RUN. 



EXAMPLE: 



- 3 - 

Data tape print-out from ILLIAC, where p = J, q «* 6, 
r = 0, and s = 1. 



X Yq Yi Y2 Y3 Y]|, 
+.5623124 -89.5623 +.5623 3.9637 21.8956 14.6325 
Tape for plotter: 

J+5623 

LOF-8956H 

LIF+OO56N 

I2F+0396N 

L3F+2190N 

L4F+1463N 

Data tape print-out from ILLIAC, where p = 6, q = 5, 
r = 1, and s = 0. 



Y 



*1 



*2 



*4 



+.562312 -89.5623 +.562 3.964 21.896 14.632 

Tape for plotter: 
J+5623 
F+OO56N 
F+0396N 
F+2190N 
F+1463N 



DAT E April 29, 1959 

CODED B Y^^l^JJ 
APPROVED BY ^n^nA^AjuJ 
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(99) 



(100) 



(101) 



(103) 



(105) 



(IOC) 



00 


100K 


L3 


6f 


32 


(99) 


26 


(100) 


L5 


(12) 


kO 


(37) 


L5 


0*2) 


ho 


(36) 


26 


(101) 


L5 


(23) 


40 


(37) 


L5 


(2^) 


kO 


(36) 


L3 


5F 


36 


(103) 


L5 


(38) 


1+0 


(1*2) 


L5 


(39) 


40 


(170) 


26 


(105) 


26 


(105) 


L3 


fro) 


ho 


(1*2 ) 


L5 


M) 


i*0 


(170) 


LI 


(35) 


LU 


3F 


36 


(185) 


LI 


(55) 


lA 


4p : 



36 

L5 
40 
1./) 
i»0 
Lf) 
LO 



(185) 

3F 

(21) 

(10) 

(X>) 

t'D 

(17) 



- |n| 6 -+A 

A> do not punch symbols 

Do punch symbols 



- |n| 5 ->a 

A > too many places in X or Y causes 
hang up 1 

Overwrite (1*2 ) to cause by-passing 

I 

Overwrite (170) to cause by-passing 



WASTE 



A > stop at LF 



A > stop at LF 



A - 1 -> A 
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(113) 



(115) 



(120) 



(121) 
(123) 



40 (21) 
LI (21) 
36 (113) 
50 (52) 
75 (10) 
S5 F 
40 (32) 
26 (108) 
L5 4F 
40 (21) 
L5 (10) 
40 (18) 
L5 (21) 
LO (17) 
40 (21) 
LI (21) 
36 (120) 
50 (18) 
75 (10) 
S5 F 

40 (18) 
26 (115) 
92 575F 
92 63F 

41 (19) 
4l (22) 
4l IF 
92 131F 
91 4f 

32 (128) 
LO (20) 
40 F 
L3 F 
32 (13^) 
F5 (19) 
40 (19) 



A > id 9 completed 



Unrounded Multiplication liy 10 



Store id 9 in (32) 



A - 1 -»A 



A > 10 s1 completed 



Unrounded multiplication fcy 10 



15 2 -hole delays 

15 1-hole delays 

Clear A and (19) 

Clear A and location for sign 

Clear A and IF 

CR-LF 

5th hole read 

A > not a 5th hole 

Subtract decimal point 

- |N| -*A • 

A > it is decimal point 

Count 5th holes 



LOCATION 



(128) 



(153) 



(154) 



(158) 



(1*1) 



(1*2) 



(1*5) 



ORDER 



LO 


(16) 


36 (18*0 


26 


(123) 


40 


(3D 


kl 


(19) 


L5 


(3D 


LO 


(11) 


32 


(133) 


L4 


(17) 


32 


(134) 


L5 


(3D 


ho 


IF 


22 


(1*) 


L5 


(15) 


4o 


(22) 


91 J+F 


4o 


(3D 


32 


(138) 


LO 


(20) 


40 


F 


L3 F 


32 


(134) 


22 


(1*1) 


50 


IF 


75 


do) 


S5 F 


IA 


(31) 


40 


IF 


22 


(13*) 


L5 


IF 


LO 


(32) 


26 


(14 5 ) 


92 83^F 


50 


(12) 


L5 IF 


66 


(32) 



HOPES 
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A > 15 (5th) holes stop. 



Clear A and 5th hole counter 

Subtract negative sign 
A > it is negative sign 

A > it is positive sign 



Store sign 
5th hole read 

A > it is not 5th hole 
Subtract decimal point 

- |N| -»A 

A > 0, it is decimal point 



Unrounded multiplication by 10 



Print J 



Divide AQjlt -► Q 
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*U IF 










L5 (22) 




Sign 






52 (lVf) 




A > 0, it is positive sign 






SI F 








(1*7) 


.26 (1*8) 
S5 F 








(1*8) 


50 kF 
50 (1*8) 
26 (Pl6) 
L5 (56) 




Print X 




(150) 


ko (171) 

*1 (19) 

*1 IF 
*1 (51) 




Overwrite (171) to punch symbols 

Clear A and (19) 

Clear A and IF 

Clear A and location (51) 




(151) 


91 *F 
52 (156) 
LO (20) 
kO F 




5th hole read 

A > 0, not 5th hole 

Subtract decimal point 






L5 F 




- |n| ->A 






52 (162) 




A > 0, it is decimal point 






F5 (19) 




Count 5th holes 






*o (19) 










LO (16) 








56 (184) 




A > 0, 15 (5th) holes stop program 


(156) 


26 (151) 

*o (51) 

*1 (19) 
L5 (51) 
LO (11) 
52 (161) 

L* (17) 
52 (162) 

L5 (51) 
kO IF 




Clear A and (19) ■ 

Subtract negative sign 
A > it is negative sign 
Add 1 
A > it is positive sign 




(161) 


22 (162) 
L5 (15) 
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(162) 


ko (22) 




Store negative number 




91 ^F 




5th hole read 




^0 (31) 








32 (166) 




A > 




LO (20) 




Subtract decimal point 




kO F 








L3 F 


- |n| 3 ->A 




32 (162) J 


A > it is decimal point 


(166) 


22 (169) 
50 IF 








75 (10) 




Unrounded multiplication "by 10 




. S5 F 








I* (51) 








kO IF 






(169) 


22 (162) 

L5 IF 






(170) 


LO (18) 
26 (1701) 






(1701) 


92 131F 
26 (171) 




CR-LF 


(171) 


92 962F 




Print L 




92 2F 




Print 


(172) 


92 898F 




Print F 




50 (12) 




Clear Q 




L5 IF 








66 (18) 




Divide AQ/lO q 




kl IF 




Clear A and IF 




L5 (22) 




Sign -» A 




32 (176) 




A > it is positive sign 




SI F 






(176) 


26 (177) 








S5 F 






(177) 


50 k-F 








50 (177) 




Print Y 




2.6 (Pl6) 


: 






92 7T0F 




Print H 
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(179) 


kl (22) 
L5 (31) 




Clear A and location for sign 




LO (30) 




Subtract CR-LF 




kO F 








L3 F 




- |N| -*A 




36 (121) 




A > 




L5 (171) 








I* (37) 




A + 6k ->A 




ko (171) 




• 




22 (150) 






(18*0 


2k 100F 




Stop 




26 999F 






(185) 


LF F 
L5 (31) 




Stop if p > 11 or q > 11 


(186) 


LO (30) 
kO F 




Subtract CR-LF 




L3 F 




- |N| -► A 




36 (121) 




A > 0, it is CR - LF 




91 ^F 




5th hole read 




26 (186) 






(10) 


00 F J 






00 10F | 


Store "+" 


(11) 


00 F 








00 11F 




Store "-" 


(12) 


00 F 


•- 






00 F 




Zero 


(15) 


80 F 








00 F j 


Negative sign 


(16) 


00 F 








00 15F 




15 5th holes stop program 


(IT) 


00 F 








00 IF 




Store integer "1" 


(18) 


00 F 








00 10F 




Store id 9 


(19) 


00 F 








00 F J I 5th hole counter 
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(20) 


80 F 
00 10F 




Decimal point 




(21) 


00 F 
00 F 




Store number of digits 




(22) 


00 F 










00 F J 


Sign 




• (30) 


80 F 
00 2F 




CR-LF 




(3D 


00 F 
00 F 




Store last number read 




(32) 


00 F 

00 10F 




Store 10 q 




(35) 


00 F 
00 12F 




Constant to stop program 
if there are more than 11 places 




(36) 


92 962F 




Print L 






92 2F 




Print 




(37) 


00 F 




Store constant to 






00 6kF 




advance symbol punch 




(38.) 


LO (52) 










32 (185) 




Used to test whether to by-pass X 


1 

i 


(39) 


LO (18) 




i 


| 




36 (179) 


I Used to test whether to by-pass Y 




(*0) 


LO (32) 
26 (145) 




1 

Used in-loc. (l42) when not by-pas 




(M) 


LO (18) 






* 


26 (1701) 




Used to overwrite (170) 


' Pt2) 


26 (172) 








26 (172) 




Used to overwrite (56) 


i 


(23) 


00 F 






J 




00 6kF I 


Used to overwrite (57) 


i (si*). 


92 962F 1 




1 




92 2F 




Used to overwrite (56) 


1 


(Pl6)00 K 










2k 999N 
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